The Logo

The logo for this website is randomly generated (on occasion). There are a few different versions of the logo.

Show code

library(dplyr)
library(ggplot2)

start<-runif(3)
amount<-10000
margins=.4

grid<-data.frame(xin=runif(amount,-1,1),yin=runif(amount,-1,1),size=runif(amount,-1,1),group=round(runif(amount,1,100))) %>% 
  group_by(group) %>% 
  mutate(
    order=1:n(),
    r=rep(start[1]+runif(1,start[1]*-margins,start[1]*margins),n()),
    g=rep(start[2]+runif(1,start[2]*-margins,start[2]*margins),n()),
    b=rep(start[3]+runif(1,start[3]*-margins,start[3]*margins),n())
    ) %>% 
  ungroup() %>% 
  mutate(across(r:b,function(x){
    x[x<0]<-0
    x[x>1]<-1
    x
  })) %>% 
  mutate(color=rgb(r,g,b)) %>% 
  arrange(order)

#### V1 ####
# plot<-ggplot(grid)+
#   geom_rect(xmin=-1.2,xmax=1.2,ymax=1.2,ymin=-1.2,fill="white")+
#   geom_path(aes(x=xin,y=yin,group=group,color=color))+
#   theme_void()+
#   guides(color='none')+
#   scale_color_manual(values = unique(grid$color))+
#   geom_rect(xmin=-.25,xmax=.25,ymax=1,ymin=.25,fill="white")+
#   geom_rect(xmin=-.25,xmax=.25,ymax=-.25,ymin=-1,fill="white")

#### V2 ####
plot<-grid %>% 
  filter(!(between(yin,.25,1)&between(xin,-.25,.25))) %>% 
  filter(!(between(yin,-1,-.25)&between(xin,-.25,.25))) %>% 
  ggplot()+
  geom_point(shape="H",aes(x=xin,y=yin,color=color,size=size))+
  scale_size_continuous(range = c(4,12))+
  theme_void()+
  guides(color='none',size='none')+
  scale_color_manual(values = unique(grid$color))


# ggsave(plot,file="data/logo.png",width=10,height=10)  
# ggsave(plot,file=sprintf("data/Logos/%s.png",lubridate::now()),width=10,height=10)  

Show code

logos<-dir("data/Logos/",full.names = T)

for(i in rev(logos)){
  filename <- file.path(i)
  cat(paste0("![text](",filename,")"))
}